home *** CD-ROM | disk | FTP | other *** search
/ Macwelt 1 / Macwelt DVD 1.toast / Web-Publishing / HTML-Editoren / Alpha ƒ / Tcl / Modes / Matlab mode / matlabWindows.tcl < prev    next >
Encoding:
Text File  |  2000-06-05  |  6.9 KB  |  238 lines
  1. ################################################################################
  2. #
  3. # matlabWindows.tcl, part of the matlab mode package
  4. # 
  5. # Command and history windows
  6. # 
  7. ################################################################################
  8.  
  9. dummyMATL
  10. proc matlabWindows.tcl {} {}
  11.  
  12. ################################################################################
  13. #  Create and/or go to command window
  14. ################################################################################
  15.  
  16. proc matlabCmdWindow {} {
  17.     global winModes MATLmodeVars
  18.  
  19.     set wins [winNames]
  20.     if {[set winThere [lsearch $wins $MATLmodeVars(CmdWinName)]] >= 0} {
  21.         set name [lindex $wins $winThere]
  22.         bringToFront $name
  23.         goto [maxPos]
  24.     } else {
  25.         new -n $MATLmodeVars(CmdWinName) -m MATL
  26.         setWinInfo {shell} {1}
  27.         insertText "Welcome to Alpha's Matlab shell."
  28.         insertText -w [lindex [winNames] 0] [matlabPrompt]
  29.     }
  30. }
  31.  
  32.  
  33. ################################################################################
  34. #  Write results to command window
  35. ################################################################################
  36.  
  37. proc matlabResults {res} {
  38.     global lastMatlabResult
  39.     
  40.     matlabCmdWindow
  41.     insertText "${res}[matlabPrompt 0]"
  42.     set lastMatlabResult $res
  43. }
  44.  
  45.  
  46. ################################################################################
  47. #  Check if front window is the command window
  48. ################################################################################
  49.  
  50. proc matlabIsShell {} {    
  51.     global MATLmodeVars
  52.     return [expr [string compare [lindex [winNames] 0] $MATLmodeVars(CmdWinName)] == 0]
  53. }
  54.  
  55.  
  56. ################################################################################
  57. #  Check if front window is the command history window
  58. ################################################################################
  59.  
  60. proc matlabIsHist {} {    
  61.     global MATLmodeVars
  62.     return [expr [string compare [lindex [winNames] 0] $MATLmodeVars(CmdHistWinName)] == 0]
  63. }
  64.  
  65.  
  66. ################################################################################
  67. #  Send shell line to MATLAB
  68. ################################################################################
  69.  
  70. proc matlabDoShellLine {} {
  71.     
  72.     set pos [getPos]
  73.     
  74.     set ind [string first "»" [getText [lineStart $pos] [nextLineStart [getPos]]]]
  75.     if {$ind >= 0} {
  76.     set lStart [pos::math [lineStart $pos] +$ind+2]
  77.     endOfLine
  78.     set scriptName [getText $lStart [getPos]]
  79.     if {[pos::compare [getPos] != [maxPos]]} {
  80.         goto [maxPos]
  81.         insertText $scriptName
  82.     }
  83.     
  84.     insertText "\n"
  85.     matlabDoScript $scriptName 2
  86.     matlabAddCommandHistory $scriptName
  87.     
  88.     } else {
  89.     
  90.     # If we're not on a command line, either 
  91.     # 1) insert a command prompt (if at the bottom of the window), or
  92.     # 2) insert an ordinary return
  93.         
  94.     if {[pos::compare [getPos] == [maxPos]]} {
  95.         insertText [matlabPrompt]
  96.     } else {
  97.         insertText "\r"
  98.     }
  99.     }
  100.     return
  101. }
  102.  
  103.  
  104. ################################################################################
  105. #  Command History recall
  106. ################################################################################
  107.  
  108. proc matlabPrevCommand {} {
  109.     global commandHistory commandNum
  110.     
  111.     set text [getText [lineStart [getPos]] [nextLineStart [getPos]]]
  112.     if {[set ind [string first "» " $text]] == 0} {
  113.     goto [pos::math [lineStart [getPos]] + $ind + 2]
  114.     } else return
  115.     
  116.     incr commandNum -1
  117.     if {$commandNum < 0} {
  118.     incr commandNum
  119.     endOfLine
  120.     return
  121.     }
  122.     set text [lindex $commandHistory $commandNum]
  123.     set to [nextLineStart [getPos]]
  124.     if {[is::Eol [lookAt [pos::math $to -1]]]} {set to [pos::math $to -1]}
  125.     replaceText [getPos] $to $text
  126. }
  127.  
  128.  
  129. proc matlabNextCommand {} {
  130.     global commandHistory commandNum
  131.     
  132.     set text [getText [lineStart [getPos]] [nextLineStart [getPos]]]
  133.     if {[set ind [string first "» " $text]] == 0} {
  134.     goto [pos::math [lineStart [getPos]] + $ind + 2]
  135.     } else return
  136.     
  137.     incr commandNum
  138.     if {$commandNum >= [llength $commandHistory]} {
  139.     incr commandNum -1
  140.     matlabCancelLine
  141.     return
  142.     }
  143.     set text [lindex $commandHistory $commandNum]
  144.     set to [nextLineStart [getPos]]
  145.     if {[is::Eol [lookAt [pos::math $to -1]]]} {set to [pos::math $to -1]}
  146.     replaceText [getPos] $to $text
  147. }
  148.  
  149.  
  150. ################################################################################
  151. #  Clear current line
  152. ################################################################################
  153.  
  154. proc matlabCancelLine {} {
  155.     global commandHistory commandNum
  156.     
  157.     if {![matlabIsShell]} {return}
  158.     
  159.     set text [getText [lineStart [getPos]] [nextLineStart [getPos]]]
  160.     if {[set ind [string first "» " $text]] == 0} {
  161.     goto [pos::math [lineStart [getPos]] + $ind + 2]
  162.     } else return
  163.     
  164.     set to [nextLineStart [getPos]]
  165.     deleteText [getPos] $to
  166.     
  167.     set commandNum [llength $commandHistory]
  168. }
  169.  
  170.  
  171. ################################################################################
  172. #  Prompt, for command window
  173. ################################################################################
  174.  
  175. proc matlabPrompt {{cr 1}} {
  176.     if {$cr} {
  177.     return "\r» "
  178.     } else {
  179.     return "» "
  180.     }
  181. }
  182.  
  183. ################################################################################
  184. #  Create and/or go to the command history window
  185. ################################################################################
  186.  
  187. proc matlabCmdHistWindow {} {
  188.     global winModes MATLmodeVars commandHistory
  189.  
  190.     set wins [winNames]
  191.     if {[set winThere [lsearch $wins $MATLmodeVars(CmdHistWinName)]] >= 0} {
  192.         set name [lindex $wins $winThere]
  193.         bringToFront $name
  194.     } else {
  195.         new -n $MATLmodeVars(CmdHistWinName) -m MATL
  196.         set text "(<cr> to rexecute the command)\r"
  197.         set theTime [join [mtime [now] long]]
  198.         append text "---- Command session history beginning $theTime ----\r"
  199.         set numLines [llength $commandHistory]
  200.         for {set commandNum 0} {$commandNum < $numLines} {incr commandNum 1} {
  201.             append text "[lindex $commandHistory $commandNum]\r"
  202.         }
  203.         insertText $text
  204.         setWinInfo {dirty} {0}
  205.         setWinInfo {read-only} {1}
  206.         prevLineSelect
  207.     }
  208. }
  209.  
  210.  
  211. ################################################################################
  212. #  Add a command to the history list and the command history window if open
  213. ################################################################################
  214.  
  215. proc matlabAddCommandHistory {scriptName} {
  216.     global commandHistory commandNum MATLmodeVars
  217.  
  218.     if {[string compare [lindex $commandHistory [expr [llength $commandHistory]-1]] $scriptName] != 0} {
  219.         lappend commandHistory $scriptName
  220.         
  221.         if {[set winThere [lsearch [winNames] $MATLmodeVars(CmdHistWinName)]] >= 0} {
  222.             set currentWindow [lindex [winNames] 0]
  223.             bringToFront $MATLmodeVars(CmdHistWinName)
  224.             goto [maxPos -w $MATLmodeVars(CmdHistWinName)]
  225.             setWinInfo -w $MATLmodeVars(CmdHistWinName) {read-only} {0}
  226.             insertText -w $MATLmodeVars(CmdHistWinName) "$scriptName\r"
  227.             setWinInfo -w $MATLmodeVars(CmdHistWinName) {dirty} {0}
  228.             setWinInfo -w $MATLmodeVars(CmdHistWinName) {read-only} {1}
  229.             prevLineSelect 
  230.             bringToFront $currentWindow
  231.         }
  232.     }
  233.     
  234.     set commandNum [llength $commandHistory]
  235. }
  236.  
  237.  
  238.